home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 February / Ahoy_Magazine_87-02_1987_Double_L.d64 / Distance Finder (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  371 b   |  14 lines
  1. 0 rem << cd38-1 >>
  2. 1 rem commodares problem #34-1:
  3. 2 print"  distance finder"
  4. 3 rem solution by
  5. 4 rem    craig ewert
  6. 5 rem
  7. 10 input"enter width & height";w,h : hn=w*h
  8. 20 input"enter point numbers";a,b
  9. 30 if a<0 or a>hn or b<0 or b>hn then print"error in numbers" : goto 20
  10. 40 x1=int((a-1)/w) : y1=a-w*x1
  11. 50 x2=int((b-1)/w) : y2=b-w*x2
  12. 60 dt=sqr((x2-x1)^2 + (y2-y1)^2)
  13. 70 print"distance =";dt
  14.